home *** CD-ROM | disk | FTP | other *** search
/ The Virtual Portfolio - N…a Showcase - Book 5 1995 / VIRTUAL [md5 EC7DB5CC033E38E511F666CE80BCE509].ISO / mac / Main / VP.mac / 00177_upton.ls < prev    next >
Encoding:
Text File  |  1995-07-18  |  471 b   |  20 lines
  1. on mouseUp
  2.   global stageMe
  3.   set stageMe to the stageBottom - the stageTop
  4.   puppetSprite(43, 1)
  5.   puppetSprite(44, 1)
  6.   set the locV of sprite 43 to stageMe + 300
  7.   set the locV of sprite 44 to stageMe + 300
  8.   puppetSprite(43, 0)
  9.   puppetSprite(44, 0)
  10.   updateStage()
  11.   puppetSound(0)
  12.   puppetSound("r14")
  13.   updateStage()
  14.   startTimer()
  15.   repeat while the timer < (2 * 60)
  16.   end repeat
  17.   puppetSound(0)
  18.   open("virtual portfolio:demos:tom upton:tom's photo/illus")
  19. end
  20.